Imports System.ComponentModel
Imports System.Web.Security

Public Class MembershipUserWrapper
    Inherits MembershipUser

    'We tag this property as the primary key so that 
    'datakeynames attribute gets set in the data control.
    <DataObjectField(True)> _
    Public Overrides ReadOnly Property UserName() As String
        Get
            Return MyBase.UserName
        End Get
    End Property

    Public Sub New(ByVal mu As MembershipUser)
        MyBase.New(mu.ProviderName, mu.UserName, mu.ProviderUserKey, mu.Email, _
        mu.PasswordQuestion, mu.Comment, mu.IsApproved, mu.IsLockedOut, _
        mu.CreationDate, mu.LastLoginDate, mu.LastActivityDate, _
        mu.LastPasswordChangedDate, mu.LastLockoutDate)
    End Sub

End Class
